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Version: *v04-000' 


PARRA RARASASALALALALAALALELLALALE SALE LES EEE EASE EEE SERRE EEE ES ERTS eee eae 


etd fe “i 1978, 1980, 1982, 1984 B 
DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
ALL RIGHTS RESERVED 


® 
® 
© 
® 
® 
THIS SOFTWARE 1S FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE GS° HERESY 
TRANSFERRED. ‘ 
® 
THE INFORMATION IN THIS SOFTWARE 1S SUBJECT TO CHANGE WITHOUT NOTICE 
AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
CORPORATION. ‘ 
® 
® 
® 
& 
® 
® 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


eeneee ee eee eee eee eeeenen 
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This ue definition of the various data structures required by the 


TSTCNTRL. It includes definitions for the various bit flags as well 
as cr the major data structures. 
CREATION DATE: 13-JUL-1982 
AUTHOR: Brian A, Axtell 
MODIFIED BY: 
v03-003 BAA0002 Brian A. Axtell, 17-Jan-1984 
Added ASSIGNSM_PAR flag. 
v03-002 BAA0001 Brian A. Axtell, 16-Dec-1982 
Modified the way PRCINFOS_ FLAGS was defined. 
v03-001 LDJ0001 arry D. Jones 16-Dec-1982 


AAA AAABAAAAAAAAA AAA AAAAAARAAAAAAARAATAGTAAA 


Changed the it to remove the “double DEF. 
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Ss 


MODULE TCNTRL; 


/* 
. first define the major data structure 
MMAXRSS = 252; 


G . 
IME QUADWORD; 


FLAGS_OVERLAY UNION; 

FLAGS LONGWORD UNSIGNED; 

FLAGS_BITS STRUCTURE; 
MBX_CHAN BITFIE 


: 
: 


a g#h@ititi ae Mae Dae Ke KKM KMR KR KKM KKM KRM Ke KK 


MASK; 
IELD MASK; 
LD LENGTH 32 = *; 


END FL 

END FLAGS OVERLAY: 

MBX_CHAN GORD; 
D_RuMB ; 


ON ADDRESS; 
ESPEC_SIZ WORD; 
— SIZ~WORD;: 
ICE_$1Z WORD: 
R_SIZ WORD; 


LONGWORD; 
ILE SPEC CHARACTER LENGTH #MAXRSS; 


END PRC_ 
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/* 
je Define the bit fields for the flag. 


TCNTRLS; 
ELD MAS /* have we reached the first grecese to start? 
; /* do we need to start more processes 
6 MASK; /* do we delete the temporary log files? 
MASK; /* is this a long (or short) report? 
SK; /* are we able to wrap-around if need to? 

MASK; /* should we write this message out? 

Lb MASK; : do we print the comments out? 


muron 
Co 
> 


4 
5 


S$ 
MASK; /* is the woceneng timer currently set and running? 
MASK; /* are we running from a terminal? 
MASK; /* the data file has been rewound 
MASK; /* is it time to exit? 
ELD MASK; /* is a presess pending to be run? 
ry! /* we are aborting the TSTCNTRL 
D 
‘a 
E 


Ens 


SK; /* watchdog timer has expired 

SK; /* we have gone through the exit handler 
D MASK; /* the running procs. nuked by S$DELPRC 
NGTH 32-*; 
END FLG; 
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/* 
ie Define the bi 
AGGREGAT 


END CNTR 
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t fields for the main control case statement. 


E CNTRL_CASE STRUCTURE PREFIX CASES; 
ABORT BITFIELD MASK; /* do abnormal abortion of TSTENTRL 
TIME_EXP BITFIELD MASK; - handler expiration of timer 
PROC_TERM BITFIELD MASK: /* do process termination routine 
EOF BITFIELD MASK; /* do end-of-file routine 
FILE BITFIELD MASK; /* do the file routine 
ASSIGN BITFIELD MASK; /® ss the assignment routine 
CREATE PROC BITFIELD MASK; /* do the create process routine 
a BITFIELD MASK; /* do the parse routine 

= oo 
CONSTANT CNTRL_CASE S126 EQUALS #BITS; 
FILLER. BITFIELD LENGTH 32 - #BITS; 
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END CRT_PROC_CASE; 
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/* 
i Define the bit fields for the create process case statement. 
AGGREGATE CRT_PROC_CASE STRUCTURE PREFIX CRTIPRC$; 
EXE BITF 


IECD MASK; /* it is an executable image 
EXE_PARM Bia ast D'MASK; /* it is an mage with parameters 
COM-BITFIELD MASK; /* it is a command procedure 
COM_PARM BITFIELD. MASK; je it is a command procedure with parameters 
WuLE BITEIELD MASK; /* it is a null filespec 
CONSTANT CREAT_CASE size EQUALS #BITS; 
FILLER BITFIELB LENGTH 32 = #BITS; 


n” 
< 
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un” 
=< 


oe 


/* 
Ae Define the bit fields for the parse flags 


AGGREGATE PRSE_FLAGS STRUCTURE PREFIX PARSES; 
C_RONS_OTHERS BITFIELD MASK; /* process must run alone (0) 
GET AXxT RCRD BITFIELD MASK: /* get next data record 


#51 
FILLER “pi frienp LENGTH 32 = #BITS; 
END PRSE_FLAGS; 
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/* 
. Define the bit fields for the assignment case 
pecpeadac : nar CASE Rhy pee PREFIX ASSIGNS; 


BITFIEL K; /* alter logfile name 
AME PaITFTEL D MASK; /* change process name 
START BITFIELD MASK; /* change starting sentinel 
STOP BITFIELD anne /* change stopping sentinel 
COM BITFIELD MASK; /* comment 
TIME BITFIELD MASK; /* maxtime 
mites MASK; /* change parallel count 
= 
Seb! ASGN_CASE_SIZ EQUALS #BITS; 
LER BITFIECD LENGTH 32 = #BITS; 


FIL 
END ASGN_CASE; 
END_MODULE ; 


” 
~< 


+ 
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